function BlockNames = TagCode_BlockName(TagCodes)
persistent TranslateTable
if isempty(TranslateTable)
	TranslateTable=load(fullfile(fileparts(mfilename("fullpath")),"..","TranslateTable.mat")).TranslateTable;
end
NoBlocks=size(TagCodes,2);
BlockNames=strings(1,NoBlocks);
for B=1:size(TagCodes,2)
	BlockNames(B)=TranslateTable(TagCodes(1,B),TagCodes(2,B));
end